home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2007 September / PCWSEP07.iso / Software / Resources / Developers / XAMPP 1.5.4 / Windows installer / xampp-win32-1.5.4-installer.exe / xampp / contrib / interbase.pl < prev    next >
Perl Script  |  2006-04-09  |  974b  |  43 lines
  1. #!/opt/lampp/bin/perl
  2. use DBI;
  3.  
  4. print "Content-Type: text/html\n\n";
  5.  
  6. my $dsn="DBI:InterBase:db=localhost:/opt/lampp/var/firebird/cdcol.gdb";
  7. my $dbh=DBI->connect("$dsn","oswald","geheim") or
  8.         die "Kann Datenbank nicht erreichen!";
  9.  
  10. print "<html>";
  11. print "<head>";
  12. print "<title>Perl und InterBase/Firebird</title>";
  13. print "</head>";
  14. print "<body>";
  15. print "<h1>Perl und InterBase/Firebird</h1>";
  16. print "<table border=\"1\">";
  17. print "<tr>";
  18. print "<th>Interpret</th>";
  19. print "<th>Titel</th>";
  20. print "<th>Jahr</th>";
  21. print "</tr>";
  22.  
  23. my $query="SELECT * FROM cds";
  24.  
  25. my $prep_sql=$dbh->prepare($query) or  die print "Can't prepare";
  26. $prep_sql->execute() or  die print "Can't  execute";
  27.  
  28. while (my @row = $prep_sql->fetchrow_array())
  29. {
  30.     print "<tr>";
  31.     print "<td>".$row[2]."</td>";
  32.     print "<td>".$row[1]."</td>";
  33.     print "<td>".$row[3]."</td>";
  34.     print "</tr>";
  35. }
  36.  
  37. $prep_sql->finish();
  38. $dbh->disconnect();
  39.  
  40. print "</table>";
  41. print "</body>";
  42. print "</html>";
  43.